home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / D51_NUSource / Source / DOpusFuncs / ClipEntry.s next >
Text File  |  1995-09-09  |  784b  |  20 lines
  1. ***************************************************************************************
  2. * ClipEntry subroutine for DOpusFuncs.s                              *
  3. ***************************************************************************************
  4. ClipEntry
  5.     Tst.l    ClipEntry_KM(a5)
  6.     Bne.s    ClipEntry_DoIt
  7.     RTS
  8. ClipEntry_DoIt
  9. ;-------------------------------------------------------------------------------------;
  10.     Lea    Buffer1(a5),a1        Buffer to write into.
  11.     Move.l    #Buffer1Len,d7        Length of buffer.
  12.     Move.l    ClipEntry_KM(a5),a2    Array of strings.
  13.     Bsr    JoinArray        Join the array of strings into the buffer.
  14.  
  15.     Lea    Buffer1(a5),a0        Buffer to a0 for NullLen
  16.     Move.l    a0,a1            Buffer to a1 for WriteToClip
  17.     Bsr    NullLen            Length to d0 for WriteToClip
  18.     Bra    WriteToClip        Write it to the clipboard.
  19. ;;;;;;;    RTS for us.
  20.